perm filename MATCH.LAP[BNF,JRA] blob
sn#031527 filedate 1973-03-21 generic text, type T, neo UTF8
(LAP SUBFUN1<F1> SUBR)
(CALL 0 (E <M2>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP SUBFUN2<F1> SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 37))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <M2>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE OR))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP <F1> SUBR)
(MOVEI 3 (QUOTE SUBFUN2<F1>))
(MOVEI 2 (QUOTE SUBFUN1<F1>))
(MOVEI 1 (QUOTE F1))
(JCALL 3 (E LRR))
NIL
(LAP SUBFUN1<M2> SUBR)
(CALL 0 (E <M3>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP SUBFUN2<M2> SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 4))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <M3>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE AND))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP <M2> SUBR)
(MOVEI 3 (QUOTE SUBFUN2<M2>))
(MOVEI 2 (QUOTE SUBFUN1<M2>))
(MOVEI 1 (QUOTE M2))
(JCALL 3 (E LRR))
NIL
(LAP SUBFUN1<M3> SUBR)
(MOVEI 1 (QUOTE 50))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <F1>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 51))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 5))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(CALL 0 (E <M3>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE NOT))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (CALL 0 (E <MPRM>))
(JUMPE 1 TAG6)
(MOVEI 1 (QTOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG6 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <M3> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<M3>))
(MOVEI 1 (QUOTE M3))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<MPRM> SUBR)
(CALL 0 (E <ARG>))
(JUMPE 1 TAG2)
(CALL 0 (E <MOP>))
(JUMPE 1 TAG2)
(CALL 0 (E <ARG1>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE OCR))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(CALL 0 (E <PAT>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE TREE))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG6)
(CALL 0 (E <CNAME>))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE TREE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE MATCHER))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG6 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <MPRM> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<MPRM>))
(MOVEI 1 (QUOTE MPRM))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<MOP> SUBR)
(MOVEI 1 (QUOTE 75))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE EQ))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 74))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE LESSP))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE 76))
(CALL 1 (E CHX))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE GREATERP))
(JRST 0 TAG1)
TAG6 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <MOP> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<MOP>))
(MOVEI 1 (QUOTE MOP))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<ARG1> SUBR)
(CALL 0 (E <ARG>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <ARG1> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<ARG1>))
(MOVEI 1 (QUOTE ARG1))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<ARG> SUBR)
(MOVEI 1 (QUOTE LENGTH))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE CDR))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE LENGTH))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE DEPTH))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE CDR))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE DEPTH))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (CALL 0 (E <NUMBER>))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG6 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <ARG> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<ARG>))
(MOVEI 1 (QUOTE ARG))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<CNAME> SUBR)
(CALL 0 (E <NUMBER>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE *CLM))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <ID>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(CALL 0 (E <VARLIST>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 3))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(POP P 2)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE *CLM))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (CALL 0 (E <ID>))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE *CLM))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG6 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <CNAME> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<CNAME>))
(MOVEI 1 (QUOTE CNAME))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<PAT> SUBR)
(CALL 0 (E <NOT1>))
(JUMPE 1 TAG2)
(CALL 0 (E <PRED>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE VARIT))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE OCNP))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <PRED>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE VARIT))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE OCPP))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (CALL 0 (E <TM>))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE VARIT))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE OCTM))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG6 (CALL 0 (E <FNLET>))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE QUOTE))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE OCFNL))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG10 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <PAT> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<PAT>))
(MOVEI 1 (QUOTE PAT))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1>F1< SUBR)
(MOVEI 1 (QUOTE (OR * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >F1<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >M2<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ∨)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >M2<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
TAG4
TAG1 (POPJ P)
NIL
(LAP >F1< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>F1<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>M2< SUBR)
(MOVEI 1 (QUOTE (AND * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >M2<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >M3<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ∧)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >M3<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
TAG4
TAG1 (POPJ P)
NIL
(LAP >M2< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>M2<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>M3< SUBR)
(MOVEI 1 (QUOTE (NOT *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >M3<))
(JUMPE 1 TAG2)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ¬)))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >MPRM<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >F1<))
(JUMPE 1 TAG5)
(CALL 0 (E STK1))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /))))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /()))
(CALL 2 (E XCONS))
TAG5
TAG1 (POPJ P)
NIL
(LAP >M3< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>M3<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>MPRM< SUBR)
(MOVEI 1 (QUOTE (* * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E >MOP<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >ARG<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >ARG1<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK2))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >PAT<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE OCR))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE (MATCHER * (TREE C))))
(CALL 1 (E MATCH))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >CNAME<))
(JUMPE 1 TAG5)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE TREE))
(CALL 2 (E XCONS))
TAG5
TAG1 (POPJ P)
NIL
(LAP >MPRM< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>MPRM<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>MOP< SUBR)
(CALL 0 (E STK1))
(CAIE 1 (QUOTE EQ))
(JRST 0 TAG2)
(MOVEI 1 (QUOTE (:CH =)))
(JRST 0 TAG1)
TAG2 (CALL 0 (E STK1))
(CAIE 1 (QUOTE LESSP))
(JRST 0 TAG3)
(MOVEI 1 (QUOTE (:CH <)))
(JRST 0 TAG1)
TAG3 (CALL 0 (E STK1))
(CAIE 1 (QUOTE GREATERP))
(JRST 0 TAG4)
(MOVEI 1 (QUOTE (:CH >)))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG1 (POPJ P)
NIL
(LAP >MOP< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>MOP<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>ARG1< SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >ARG<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
TAG2 (POPJ P)
NIL
(LAP >ARG1< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>ARG1<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>ARG< SUBR)
(MOVEI 1 (QUOTE (LENGTH (CDR C))))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE LENGTH))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (DEPTH (CDR C))))
(CALL 1 (E MATCH))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE DEPTH))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >NUMBER<))
(JUMPE 1 TAG6)
(CALL 0 (E STK1))
TAG6
TAG1 (POPJ P)
NIL
(LAP >ARG< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>ARG<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>CNAME< SUBR)
(MOVEI 1 (QUOTE (*CLM ((* . *)))))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >ID<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >VARLIST<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (*CLM (*))))
(CALL 1 (E MATCH))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >NUMBER<))
(JUMPE 1 TAG4)
(CALL 0 (E STK0))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE (*CLM (*))))
(CALL 1 (E MATCH))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >ID<))
(JUMPE 1 TAG6)
(CALL 0 (E STK0))
TAG6
TAG1 (POPJ P)
NIL
(LAP >CNAME< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>CNAME<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>PAT< SUBR)
(MOVEI 1 (QUOTE (OCNP (VARIT *) C)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >PRED<))
(JUMPE 1 TAG2)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ¬)))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (OCPP (VARIT *) C)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >PRED<))
(JUMPE 1 TAG4)
(CALL 0 (E STK0))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE (OCTM (VARIT *) C)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >TM<))
(JUMPE 1 TAG6)
(CALL 0 (E STK0))
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE (OCFNL (QUOTE *) C)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >FNLET<))
(JUMPE 1 TAG10)
(CALL 0 (E STK0))
TAG10
TAG1 (POPJ P)
NIL
(LAP >PAT< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>PAT<))
(JCALL 2 (E OUTRUL))
NIL